home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 3 / ct-rom iiib.zip / ct-rom iiib / WINDOWS / DIVERSEN / WINE02BX / HELPER.ELC < prev    next >
Text File  |  1993-03-28  |  3KB  |  30 lines
  1. ;;; compiled by jwz@thalidomide on Thu Jul  2 16:35:44 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/helper.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴!ê┬├!¼é─┬┼!¼é─¼«╞ ╟╚╔#ê╟╩╦#ê╟╠═#ê╟╬╧#ê╟╨╤#ê╟╥!╤#ê┼Mê╘╒Mç" [provide helper boundp Helper-return-blurb nil Helper-help-map make-keymap define-key "m" Helper-describe-mode "b" Helper-describe-bindings "c" Helper-describe-key-briefly "k" Helper-describe-key "?" Helper-help-options char-to-string help-char Helper-help-scroller #[nil "└┴!½â    «ü┬─ï)ç" [boundp Helper-return-blurb "return" blurb ((byte-code "└┴ !bê┬├!½å─├!ê¬ä┼├!êebê╞╟        ¡┘╩d!½â╦¬ü╠═_╩e!½â╦¬ü╠\\╬╧8\"ê╤ ë    ╥>½ï═W½à╙ ê¬H    ╘U½à╒ ê¬=    ╓U½ì═ª╠U½à╫ ê¬*╟ë    ¼(╟*ç" [window-start selected-window get-buffer-window "*Help*" pop-to-buffer switch-to-buffer t nil state continue pos-visible-in-window-p 1 0 2 message ("Space forward, Delete back. Other keys %s" "Space scrolls forward. Other keys %s" "Delete scrolls back. Other keys %s" "Type anything to %s") blurb read-char (32 22) scroll-up 12 recenter 127 scroll-down] 4))] 2]] 4)
  14. (fset 'Helper-help-options #[nil "└┴!ê┬├!ç" [message "c (key briefly), m (mode), k (key), b (bindings)" sit-for 4] 2 "\
  15. Describe help options." nil])
  16. (fset 'Helper-describe-key-briefly #[(key) "└    !ê┬├!ç" [describe-key-briefly key sit-for 4] 2 "\
  17. Briefly describe binding of KEYS." "kDescribe key briefly: "])
  18. (fset 'Helper-describe-key #[(key) "└ïê┴ ç" [((describe-key key)) Helper-help-scroller] 1 "\
  19. Describe binding of KEYS." "kDescribe key: "])
  20. (fset 'Helper-describe-function #[nil "└ïê┴ ç" [((byte-code "└┴!ç" [call-interactively describe-function] 2)) Helper-help-scroller] 1 "\
  21. Describe a function.  Name read interactively." nil])
  22. (fset 'Helper-describe-variable #[nil "└ïê┴ ç" [((byte-code "└┴!ç" [call-interactively describe-variable] 2)) Helper-help-scroller] 1 "\
  23. Describe a variable.  Name read interactively." nil])
  24. (fset 'Helper-describe-mode #[nil "┴\n!è─┼!qê╞ ê ╟    ▒ê+╚ ç" [mode-name documentation major-mode name get-buffer-create "*Help*" erase-buffer " Mode\n" Helper-help-scroller] 3 "\
  25. Describe the current mode." nil])
  26. (fset 'Helper-describe-bindings #[nil "└┴!ê┬ïê├ ç" [message "Making binding list..." ((describe-bindings)) Helper-help-scroller] 2 "\
  27. Describe local key bindings of current mode." nil])
  28. (fset 'Helper-help #[nil "└┴ ¡▒─┼!ê╞╟ ù!╚    \n\"ë╩=½à╩ ê¬c╦\n!½ë╠\n!ê┴ë¬V═ ê┴ë¼P┴*ç" [t nil c continue message "Help (Type ? for further options)" char-to-string read-char lookup-key Helper-help-map Helper-help-options commandp call-interactively ding] 4 "\
  29. Provide help for current mode." nil])
  30.